Исходный код

Option Explicit
Call GetPosition()

'==============================================================================
'Дать возможность выбора должности и сообщить, сколько пользователей присвоено
'данной позиции
'==============================================================================
Sub GetPosition()
        Dim SelectClassifDlg, RetVal, cls 
        
        'Если список должностей пуст, выйти из подпрограммы
        If ThisApplication.Positions.Classifiers.Count = 0 Then
                MsgBox "В приложении отсутствует список должностей.", vbInformation
                Exit Sub
        End If

        'Открыть диалог, установив корневой классификатор на список должностей
        Set SelectClassifDlg = ThisApplication.Dialogs.SelectClassifierDlg
        SelectClassifDlg.Root = ThisApplication.Positions
        RetVal = SelectClassifDlg.Show
        
        If RetVal Then
                Set cls = SelectClassifDlg.Classifier
                Msgbox "На должности """ & cls.Description & """" & Chr(13) & _
                "зарегистрировано пользователей: " & cls.AssignedUsers.count, _
                vbInformation, "Информация о должности"
        End If

End Sub
'==============================================================================